home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Menus / eudoraMenu.tcl < prev    next >
Encoding:
Text File  |  1997-12-08  |  22.6 KB  |  854 lines  |  [TEXT/ALFA]
  1. #     <nowrap>
  2. # Built for Eudora
  3.  
  4. # Class message: A message
  5. # Elements:
  6. #     field by name
  7. # Properties:
  8. #     body  string  -- the body of the message
  9. #     priority  integer  -- the priority
  10. #     label  integer  -- the index of the label
  11. #     status  unread/already read/replied/forwarded/redirected/not sendable/sendable/queued/sent/never sent  -- the message status
  12. #     sender  string  -- the sender as appearing in the message summary
  13. #     date  string  [r/o]  -- the date as appearing in the message summary
  14. #     subject  string  -- the subject as appearing in the message summary
  15. #     size  integer  [r/o]  -- the size of the message
  16. #     outgoing  boolean  [r/o]  -- is the message is outgoing?
  17. #     signature  none/standard/alternate  -- which signature the message should have
  18. #     QP  boolean  -- is Eudora allowed to encode text?
  19. #     return receipt  boolean  -- is a return receipt is requested?
  20. #     wrap  boolean  -- should the text be wrapped when sent?
  21. #     tab expansion  boolean  -- should tabs get expanded to spaces?
  22. #     keep copy  boolean  -- should a copy should be kept after message is sent?
  23. #     preserve macintosh info  boolean  -- should Macintosh information always be sent with attachments?
  24. #     attachment encoding  AppleDouble/AppleSingle/BinHex/uuencode  -- the type of encoding to use for attachments
  25. #     show all headers  boolean  -- should all headers be visible?
  26. #     transliteration table  integer  -- the resource id of the transliteration table
  27. #     will be fetched  boolean  -- will the message be [re]fetched on next check?
  28. #     will be deleted  boolean  -- will the message be deleted from server on next check?
  29. # 
  30.  
  31. alpha::menu eudoraMenu 0.1 "•138" in_menu {
  32.     addMode Mail dummyMail {} eudoraMenu
  33.     set unixMode(rmail) {Mail}
  34. } uninstall {this-file} help {file "Eudora"}
  35.  
  36. proc eudoraMenu {} {}
  37. proc dummyMail {} {}
  38.  
  39. if {![info exists trashName]} {set trashName "Trash"}
  40.  
  41. newPref v prefixString {> } Mail
  42. newPref v wordBreak {(\$)?[a-zA-Z0-9_.]+} Mail
  43. newPref f wordWrap {0} Mail
  44. newPref v wordBreakPreface {[^a-zA-Z0-9_\$]} Mail
  45. newPref f autoMark 0 Mail
  46. newPref file eudoraNicknames "" Mail
  47. newPref f tossOnQueue 1 Mail
  48. newPref f switchOnQueue 0 Mail
  49.  
  50. set mailKeywords {{Subject:} {To:} {From:} {Cc:} {Date:} {Sender:}}
  51. regModeKeywords -k blue -e {>} Mail $mailKeywords
  52.  
  53. bind '\t'                         mailTab Mail
  54.  
  55. #===============================================================================
  56. # Utility routines.
  57. proc eudoraFolder {} { nameObject euMF {'TEXT'()} [nullObject] }
  58. proc mailboxByName {name} { nameObject euMB "“$name”" [eudoraFolder] }
  59. proc mailboxByIndex {ind} { indexObject euMB $ind [eudoraFolder] }
  60. proc eudoraMessage {msg_id mailbox} { indexObject euMS $msg_id [mailboxByName $mailbox] }
  61. proc mailboxProperty {prop mailbox} { objectProperty 'CSOm' $prop [mailboxByName $mailbox] }
  62. proc messageProperty {prop msg_id mailbox} { objectProperty 'CSOm' $prop [eudoraMessage $msg_id $mailbox] }
  63.  
  64. # Get path-name for indicated mailbox
  65. proc mailboxPathName {name} {
  66.     extractPath [mailboxProperty euFS $name]
  67. }
  68.  
  69. proc mailboxPathIndex {ind} {
  70.     set res [objectProperty 'CSOm' euFS [mailboxByIndex $ind]]
  71.     return [extractPath $res]
  72. }
  73.  
  74. #===============================================================================
  75.  
  76.  
  77. proc checkMailPath {} {
  78.     set name [nameFromAppl CSOm]
  79.     launch $name
  80.     return [file tail $name]
  81. }
  82.  
  83. if {![info exists eudoraBoxes]} {
  84.     set eudoraBoxes {In Out}
  85. }
  86.  
  87. menu -n $eudoraMenu -p eudoraProc {
  88.     "<SbackgroundEudora"
  89.     "<Seudora"
  90.     "help"
  91.     "(-"
  92.     "/e<U<BnewMessage"
  93.     "cc"
  94.     "bcc"
  95.     "(-"
  96.     "/f<U<Bsend"
  97.     "/g<U<S<Breply"
  98.     "/g<U<I<S<BreplyToAll"
  99.     "(-"
  100.     "/,<SfinishNickname"
  101.     "/,<S<O<IsubstituteNickname"
  102.     "editNicknames"
  103.     "updateNicknames"
  104.     "(-"
  105.     "updateMailboxLists"
  106.     {menu -n open -p mailBoxProc -m {}}
  107.     {menu -n moveTo -p transferProc -m {}}
  108.     "(-"
  109.     {menu -n tellEudora -p eudoraProc {
  110.         "/k<UflushOutbox"
  111.         "/l<UcheckForMail"
  112.         "(-"
  113.         startNotifying
  114.         stopNotifying}}
  115.     {menu -n mailFlags -p mailFlagsProc {alertOnIncoming flushOnCheck immediateSend -- trashName}}
  116. }
  117. menu -n open -p mailBoxProc -m [concat [list "/h<U<BOpen Mailbox…" "(-"] $eudoraBoxes]
  118. menu -n moveTo -p transferProc -m [concat [list "/i<U<BMove To Trash" "/j<U<BMove To Mailbox…" "(-"] $eudoraBoxes]
  119.  
  120. if {$MailmodeVars(eudoraNicknames) == "" \
  121.     && [file exists "[file dirname [file dirname $PREFS]]:Eudora Folder:Eudora Nicknames"]} {
  122.     set MailmodeVars(eudoraNicknames) "[file dirname [file dirname $PREFS]]:Eudora Folder:Eudora Nicknames"
  123. }
  124.  
  125. proc updateNicknames {{arg ""}} {
  126.     global euNicknames eudoraNicknames
  127.     
  128.     if {![info exists eudoraNicknames] || ![file exists $eudoraNicknames]} {
  129.         if {![string length $arg]} {
  130.             alertnote {Please locate the file "Eudora Nicknames" using Mail mode's prefs.}
  131.         }
  132.         return
  133.     }
  134.     
  135.     set fd [open $eudoraNicknames]
  136.     foreach a [split [read $fd] "\n"] {
  137.         if {[llength $a]} {
  138.             set euNicknames([lindex $a 1]) [lindex $a 2]
  139.         }
  140.     }
  141.     close $fd
  142. }
  143. updateNicknames quiet
  144.  
  145.  
  146. proc finishNickname {} {
  147.     global euNicknames
  148.     set pos [getPos]
  149.     backwardWord
  150.     set text [getText [getPos] $pos]
  151.     goto $pos
  152.     foreach w [array names euNicknames] {
  153.         if {[string match "$text*" $w]} {
  154.             lappend matches $w
  155.         }
  156.     }
  157.     if {![llength $matches]} {
  158.         beep
  159.     } else {
  160.         insertText [string range [largestPrefix $matches] [string length $text] end]
  161.     }
  162. }    
  163.  
  164.  
  165. proc editNicknames {} {
  166.     global eudoraNicknames
  167.     
  168.     edit -w "$eudoraNicknames"
  169. }
  170.  
  171.  
  172. proc substituteNickname {} {
  173.     global euNicknames
  174.     finishNickname
  175.     set to [getPos]
  176.     backwardWord
  177.     set from [getPos]
  178.     set text [getText $from $to]
  179.     goto $to
  180.  
  181.     if {[info exists euNicknames($text)]} {
  182.         replaceText $from $to [set euNicknames($text)]
  183.     }
  184. }
  185.  
  186. proc openMailbox {} {
  187.     global eudoraBoxes eudoraLastFolder modifiedVars
  188.     if {[info exists eudoraLastFolder]} {
  189.         set fold $eudoraLastFolder
  190.     } else {
  191.         set fold [lindex $eudoraBoxes 0]
  192.     }
  193.     set eudoraLastFolder [sPromptChoices "Open mailbox" $fold $eudoraBoxes]
  194.     mailBoxProc dummy $eudoraLastFolder
  195.     lappend modifiedVars eudoraLastFolder
  196. }
  197.  
  198.  
  199. proc moveToFolderProc {curr c} {
  200.     global eudoraBoxes
  201.     if {$c != "\t"} {return $c}
  202.     
  203.     set matches {}
  204.     foreach w $eudoraBoxes {
  205.         if {[string match "$curr*" $w]} {
  206.             lappend matches $w
  207.         }
  208.     }
  209.     if {![llength $matches]} {
  210.         beep
  211.     } else {
  212.         return [string range [largestPrefix $matches] [string length $curr] end]
  213.     }
  214.     return ""
  215. }
  216.  
  217.  
  218. proc moveToMailbox {} {
  219.     global eudoraLastFolder modifiedVars trashName
  220.     
  221.     if {[info exists eudoraLastFolder]} {
  222.         set fold $eudoraLastFolder
  223.     } else {
  224.         set fold $trashName
  225.     }
  226.     
  227.     set folder [statusPrompt -f "Move to ($fold): " moveToFolderProc]
  228.     if {[string length $folder]} {
  229.         doFolderMove $folder
  230.         set eudoraLastFolder $folder
  231.         lappend modifiedVars eudoraLastFolder
  232.     } else {
  233.         doFolderMove $fold
  234.     }
  235. }
  236.  
  237.  
  238. proc eudoraProc {menu item} {
  239.     global HOME eudoraMenu
  240.  
  241.     switch $item {
  242.         "eudora"        {app::launchFore CSOm}
  243.         "backgroundEudora"        {launch [nameFromAppl CSOm]}
  244.         "help"            {edit -r "$HOME:Help:Eudora"}
  245.         "cc"            {eudoraCc}
  246.         "bcc"            {eudoraBcc}
  247.         "newMessage"    {mailNewMsg}
  248.         "reply"            {mailReplymsg}
  249.         "replyToAll"    {mailReplymsg 1}
  250.         "send"            {checkMailPath; mailSendCreatedMsg}
  251.         "flushOutbox"    {checkMailPath; mailFlushOut}
  252.         "checkForMail"    {checkMailPath; mailCheck}
  253.         "startNotifying" "checkMailPath; startNotifying"
  254.         "stopNotifying"    "checkMailPath; stopNotifying"
  255.         "moveToTrash"    {mailTrashmsg}
  256.         "Move To Trash"    {mailTrashmsg}
  257.         "Create New"    {eudoraNewMailbox}
  258.         "Delete"        {eudoraDeleteMailbox}
  259.         default            $item
  260.     }
  261. }
  262.  
  263. if {![info exists mailflushOnCheck]} {set mailflushOnCheck 1}
  264. if {![info exists mailalertOnIncoming]} {set mailalertOnIncoming 1}
  265. if {![info exists mailimmediateSend]} {set mailimmediateSend 0}
  266. markMenuItem mailFlags flushOnCheck $mailflushOnCheck
  267. markMenuItem mailFlags alertOnIncoming $mailalertOnIncoming
  268. markMenuItem mailFlags immediateSend $mailimmediateSend
  269.  
  270.  
  271. proc mailFlagsProc {menu flag} {
  272.     global mail$flag modifiedVars trashName
  273.  
  274.     if {$flag == "trashName"} {
  275.         set trashName [prompt "Trash folder name:" $trashName]
  276.         lappend modifiedVars trashName
  277.         return
  278.     }
  279.     
  280.  
  281.     set mail$flag [expr 1 - [set mail$flag]]
  282.     lappend modifiedVars mail$flag
  283.     markMenuItem mailFlags $flag [set mail$flag]
  284. }
  285.  
  286.  
  287. proc mailBoxProc {menu item} {
  288.     global inboxMembers ALPHA eudoraBoxes modifiedVars
  289.     global tileLeft tileTop tileHeight errorHeight defWidth
  290.  
  291.     if {$item == "Open Mailbox"} {
  292.         return [openMailbox]
  293.     }
  294.     
  295.     killMailboxWindow
  296.  
  297.     checkMailPath
  298.     switchTo $ALPHA
  299.  
  300.     global trashedMsgs$item
  301.     set trashedMsgs$item {}
  302.     
  303.     set inboxMembers {}
  304.     set text {}
  305.     set ind 1
  306.     foreach msg [mailSenders $item] {
  307.         set from [mailAddr [lindex $msg 0]]
  308.         set tag {}
  309.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  310.             if {![string length $tag]} {
  311.                 set tag { <2>}
  312.             } else {
  313.                 regexp {[0-9]+} $tag tag
  314.                 set tag " <[expr $tag + 1]>"
  315.             }
  316.         }
  317.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t∞$item∞$ind\r" "$from$tag" [lindex $msg 1]]
  318.         lappend inboxMembers $from$tag
  319.         incr ind
  320.     }
  321.     if {![string length $text]} {
  322.         alertnote "No messages in '$item'!"
  323.         return
  324.     }
  325.     
  326.     new -n "* MAILBOX '$item' *" -g $tileLeft $tileTop $defWidth $errorHeight -m Brws
  327.     insertText "(<cr> to go to message)\r-----\r$text"
  328.     
  329.     select [nextLineStart [nextLineStart 0]] [nextLineStart [nextLineStart [nextLineStart 0]]]
  330.     setWinInfo dirty 0
  331.     setWinInfo read-only 1
  332.     message ""
  333. }
  334.  
  335. proc eudoraNewMailbox {} {
  336. }
  337.  
  338.  
  339. proc eudoraDeleteMailbox {} {
  340. }
  341.  
  342.  
  343. proc killMailboxWindow {} {
  344.     if {[set ind [lsearch [winNames] {*MAILBOX*}]] >= 0} {
  345.         set win [lindex [winNames] $ind]
  346.         bringToFront $win
  347.         killWindow
  348.     }
  349. }
  350.  
  351.  
  352. proc mailGotoMatch {} {
  353.     if {[regexp {∞(.+)∞([0-9]+)} [getText [lineStart [getPos]] [nextLineStart [getPos]]] dummy folder ind]} {
  354.         global trashedMsgs$folder
  355.         
  356.         set deleted 0
  357.         for {set i 1} {$i < $ind} {incr i} {
  358.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  359.                 incr deleted
  360.             }
  361.         }
  362.         mailOpen $folder [expr $ind - $deleted] $ind
  363.     }
  364. }
  365.  
  366.  
  367. proc mailAddr {name} {
  368.     if {![regexp {<(.*)>} $name dummy addr]} {
  369.         regexp {^[^ ]+} $name addr
  370.     }
  371.     return $addr
  372. }
  373.  
  374.  
  375. proc mailSenders {folder} {
  376.     set cnt [mailCountMsgs $folder]
  377.     set msgs {}
  378.     for {set i 1} {$i <= $cnt} {incr i} {
  379.         set subject {}
  380.         if {![regexp -nocase {From: (.*)} [mailGetField from $folder $i] dummy from]} {
  381.             error "No from field!"
  382.         }
  383.         regexp {Subject: (.*)} [mailGetField subject $folder $i] dummy subject
  384.         lappend msgs [list $from $subject]
  385.     }
  386.     return $msgs
  387. }    
  388.  
  389.  
  390. proc eudoraCc {} {
  391.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {cc:.*} 0]}]} {
  392.         goto [lindex $res 0]
  393.         endOfLine
  394.     } else {
  395.         beginningOfBuffer
  396.         nextLine
  397.         insertText "Cc: \r"
  398.         backwardChar
  399.     }
  400. }
  401.  
  402.  
  403. proc eudoraBcc {} {
  404.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {bcc:.*} 0]}]} {
  405.         goto [lindex $res 0]
  406.         endOfLine
  407.     } else {
  408.         beginningOfBuffer
  409.         nextLine
  410.         insertText "Bcc: \r"
  411.         backwardChar
  412.     }
  413. }
  414.  
  415.  
  416. proc mailFlushOut {} {
  417.     global MailmodeVars
  418.     message "Telling Eudora to flush messages…"
  419.  
  420.     AEBuild 'CSOm' CSOm eCon eSen bool(«01») eChk bool(«00»)
  421.     message ""
  422. }
  423.  
  424.  
  425. proc mailCheck {} {
  426.     global MailmodeVars mailflushOnCheck
  427.     message "Told Eudora to check for new mail…"
  428.  
  429.     AEBuild 'CSOm' CSOm eCon eSen bool(«0$mailflushOnCheck») eChk bool(«01»)
  430. }
  431.  
  432.  
  433. proc mailReplymsg {{toall 0}} {
  434.     global inboxMembers
  435.  
  436.     set prefix "> "
  437.     set res [search -s -f 1 -r 1 {^>==} 0]
  438.     set header [getText 0 [lindex $res 0]]
  439.     
  440.     set from [mailGetFrom]
  441.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  442.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  443.  
  444.     regsub -all "\r" $body "\r$prefix" body
  445.     mailNewMsg $from "" "" "Re: $subject" "\r$prefix$body\r"
  446. }
  447.  
  448. proc transferProc {menu item} {
  449.     if {$item == "Move To Trash"} {
  450.         mailTrashmsg
  451.     } elseif {$item == "Move To Mailbox"} {
  452.         moveToMailbox
  453.     } else {
  454.         doFolderMove $item
  455.     }
  456. }
  457.  
  458.  
  459. proc mailTrashmsg {} {
  460.     global trashName
  461.     doFolderMove $trashName
  462. }
  463.  
  464. proc doFolderMove {toFolder} {
  465.     # Is this a summary or msg window?
  466.     if {[regexp "MAILBOX" [win::CurrentTail]]} {
  467.         if {![regexp {∞(.*)∞([0-9]+)} [getText [getPos] [nextLineStart [getPos]]] dummy folder orig]} {
  468.             beep
  469.             return
  470.         }
  471.         if {$toFolder == $folder} return
  472.         global trashedMsgs$folder
  473.  
  474.         set deleted 0
  475.         for {set i 1} {$i < $orig} {incr i} {
  476.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  477.                 incr deleted
  478.             }
  479.         }
  480.         set number [expr $orig - $deleted]
  481.         set summary 1
  482.     } else {
  483.         set pos [lindex [search -f 1 -r 1 {^Msg} 0] 0]
  484.         set text [getText $pos [nextLineStart $pos]]
  485.         regexp {"([^"]+)" \(([0-9]+)\).*"([^"]+)"} $text dummy number orig folder
  486.         if {$toFolder == $folder} return
  487.         set summary 0
  488.  
  489.         global trashedMsgs$folder
  490.     }
  491.     
  492.     message "Moving msg $number ($orig) of folder '$folder' to '$toFolder'"
  493.     moveMsg $number $folder $toFolder
  494.     if {!$summary} killWindow
  495.  
  496.     lappend trashedMsgs$folder $orig
  497.     
  498.     # Find summary info and delete it
  499.     set win [win::CurrentTail]
  500.     if {[regexp "MAILBOX" $win]} {
  501.         setWinInfo read-only 0
  502.     
  503.         set inds [search -f 1 -r 1 "∞$folder∞$orig\$" 0]
  504.         set pos [lindex $inds 0]
  505.         deleteText [lineStart $pos] [nextLineStart $pos]
  506.     
  507.         if {[string length [search -n -f 1 -r 0 {∞} 0]]} {
  508.             setWinInfo dirty 0
  509.             setWinInfo read-only 1
  510.     
  511.             nextLine
  512.             upBrowse
  513.         } else {
  514.             setWinInfo dirty 0
  515.             killWindow
  516.         }
  517.     }
  518. }
  519.  
  520.     
  521. proc mailGetFrom {} {
  522.     set res [search -s -f 1 -r 1 {>==} 0]
  523.     set header [getText 0 [lindex $res 0]]
  524.     if {[regexp {From: ([^\r]*)} $header dummy from]} {
  525.         return [mailAddr $from]
  526.     }
  527.     error "No from line"
  528. }
  529.  
  530.     
  531.  
  532. proc mailSendCreatedMsg {} {
  533.     global MailmodeVars mailimmediateSend
  534.     
  535.     set name [checkMailPath]
  536.     set res [search -s -f 1 -r 0 {>==text follows this line==<} 0]
  537.     set header [getText 0 [lindex $res 0]]
  538.     
  539.     if {![regexp {To: ([^\r]*)} $header dummy to]} {set to ""}
  540.     if {![regexp {[Cc]+: ([^\r]*)} $header dummy cc]} {set cc ""}
  541.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  542.  
  543.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  544.     
  545.     mailCreateMsg
  546.     mailSetField to $to
  547.     mailSetField cc $cc
  548.     mailSetField subject $subject
  549.     mailSetField "" $body
  550.     
  551.     if {$MailmodeVars(tossOnQueue)} {
  552.         setWinInfo dirty 0
  553.         killWindow
  554.     }
  555.  
  556.     mailQueueLast
  557.  
  558.     if {$MailmodeVars(switchOnQueue)} {
  559.         switchTo $name
  560.     }
  561.  
  562.     if {$mailimmediateSend} {
  563.         mailFlushOut
  564.     } else {
  565.         message "Message queued…"
  566.     }
  567. }
  568.  
  569.     
  570. proc mailNewMsg {{to ""} {cc ""} {bcc ""} {subject ""} {body ""}} {
  571.     new -n "New Mail" -m Mail
  572.  
  573.     insertText "To: $to\rSubject: $subject\r>==text follows this line==<\r$body"
  574.     setWinInfo dirty 0
  575.     goto 0
  576.     refresh
  577.     mailTab
  578. }
  579.  
  580.  
  581. proc mailTab {} {
  582.     global mailKeywords
  583.     if {[catch {search -s -f 1 -r 1 -i 1 "([join $mailKeywords {|}]|^>)" [getPos]} res]} {
  584.         insertText "\t"
  585.         return
  586.     }
  587.     if {[lookAt [lindex $res 0]] == ">"} {
  588.         select [nextLineStart [lindex $res 1]] [maxPos]
  589.     } else {
  590.         goto [expr [lindex $res 1] + 1]
  591.         endLineSelect
  592.     }
  593. }
  594.  
  595. proc mailOpen {folder i originalNum} {
  596.     global tileLeft tileTop tileHeight trashedMsgs$folder defWidth
  597.     
  598.     set from [mailGetField From $folder $i]
  599.     set to [mailGetField To $folder $i]
  600.     set subject [mailGetField Subject $folder $i]
  601.     set sender [mailGetField Sender $folder $i]
  602.     set date [mailGetField Date $folder $i]
  603.     set cc [mailGetField cc $folder $i]
  604.     set contents [mailGetField "" $folder $i]
  605.     
  606. #===============================================================================
  607.     global tileHeight tileTop tileLeft errorHeight errorDisp defWidth
  608.     set top $tileTop
  609.     set geo [getGeometry]
  610.     if {([lindex $geo 0] != $tileLeft) || ([lindex $geo 1] != $top) || ([lindex $geo 2] != $defWidth) || ([lindex $geo 3] != $errorHeight) } {
  611.         moveWin $tileLeft $top
  612.         sizeWin $defWidth $errorHeight
  613.     }
  614.     set mar 28
  615.     incr top [expr $errorHeight + $mar]
  616. #===============================================================================
  617.     set name [new -n "MAIL" -g $tileLeft $top $defWidth [expr $errorDisp - 5] -m Mail]
  618.  
  619.     set text {}
  620.     if {[string length $subject]} {append text "$subject\r"}
  621.     if {[string length $to]} {append text "$to\r"}
  622.     if {[string length $from]} {append text "$from\r"}
  623.     if {[string length $date]} {append text "$date\r"}
  624.     if {[string length $cc]} {append text "$cc\r"}
  625.     if {[string length $sender]} {append text "$sender\r"}
  626.     append text "Msg \"$i\" ($originalNum) of mailbox \"$folder\"     Reply     Trash\r"
  627.     insertText "${text}>===============================================================================
  628. $contents
  629. "
  630.     goto 0
  631.     goto [lindex [search -f 1 -m 0 -r 1 {^Msg "} 0] 0]
  632.     set pos [getPos]
  633.     regexp -indices {([0-9]+).*mailbox "(.+)".*(Reply).*(Trash)} [getText $pos [nextLineStart $pos]] dummy num fold rep tra
  634.     colorSelectPos [expr $pos + [lindex $num 0]] [expr 1 + $pos + [lindex $num 1]] bold 12
  635.     colorSelectPos [expr $pos + [lindex $fold 0]] [expr 1 +$pos + [lindex $fold 1]] bold 12
  636.     hyperSelectPos [expr $pos + [lindex $rep 0]] [expr 1 +$pos + [lindex $rep 1]] "mailReplymsg"
  637.     hyperSelectPos [expr $pos + [lindex $tra 0]] [expr 1 +$pos + [lindex $tra 1]] "mailTrashmsg"
  638.  
  639.     goto 0
  640.     setWinInfo dirty 0
  641.     setWinInfo read-only 1
  642.     refresh
  643. }
  644.  
  645. proc colorSelectPos {from to ind ind2} {
  646.     insertColorEscape $from $ind
  647.     insertColorEscape $to $ind2
  648. }
  649.  
  650. proc hyperSelectPos {from to text} {
  651.     if {$from == $to} {
  652.         beep
  653.         return
  654.     }
  655.     insertColorEscape $from 3
  656.     insertColorEscape $from 15 $text
  657.     insertColorEscape $to 12
  658.     insertColorEscape $to 0
  659. }
  660.  
  661. proc mailFixMenus {} {
  662.     global eudoraMenu
  663.     
  664.     set ins {}
  665.     set outs {}
  666.     
  667.     set cnt [mailCountMsgs in]
  668.     for {set i 1} {$i <= $cnt} {incr i} {
  669.         lappend ins [mailGetField from in $i]
  670.     }
  671.     menu -n in {}
  672.     foreach item $ins {
  673.         addMenuItem -l "" in $item
  674.     }
  675.     
  676.     set cnt [mailCountMsgs out]
  677.     for {set i 1} {$i <= $cnt} {incr i} {
  678.         lappend outs [mailGetField from out $i]
  679.     }
  680.     menu -n out {}
  681.     foreach item $outs {
  682.         addMenuItem -l "" out $item
  683.     }
  684. }
  685.  
  686.  
  687. # make message at end of mailbox "out" of mail folder ""
  688. proc mailCreateMsg {} {
  689.     createThingAtEnd 'CSOm' [mailboxByName Out] euMS
  690. }
  691.  
  692.  
  693. # Move msg w/ specified index between folders, including to Trash.
  694. proc moveMsg {msg infolder outfolder} {
  695.     AEBuild -r 'CSOm' core move {----} "obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:“$infolder”, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}" {insh} "insl\{kobj:obj \{form:name, want:type(euMB), seld:“$outfolder”, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}, kpos:end \}"
  696. }
  697.  
  698.  
  699. # set field "fld" of message 0 to "to"
  700. proc mailSetField {fld to} {
  701.     AEBuild -r 'CSOm' core setd {----} "obj \{form:name, want:type(euFd), seld:“$fld”, from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data "“$to”"
  702. }
  703.  
  704. proc mailGetField {field folder msg} {
  705.     if {[catch {getObjectData 'CSOm' euFd $field [eudoraMessage $msg $folder]} res]} {
  706.         return ""
  707.     } else {
  708.         return $res
  709.     }
  710. }
  711.  
  712. # obj {want:type('prop'), from:obj {form:indx, want:type(euMS), seld:$msg, from:obj {form:name, want:type(euMB), seld:“$folder”, from:obj {form:name, want:type(euMF), seld:'TEXT'(), from:'null'()}}}, form:'prop', seld:type('euST')}
  713.  
  714. proc mailMsgStatus {folder msg} {
  715.     if {[catch {AEBuild -r 'CSOm' core getd {----} "obj \{want:type('prop'), from:obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:“$folder”, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}, form:'prop', seld:type('euST')\}"} text]} {
  716.         return ""
  717.     }
  718.     set from [string first "“" $text]
  719.     set to [string first "”" $text]
  720.     return [string range $text [expr $from + 1] [expr $to - 1]]
  721. }
  722.  
  723. proc mailQueueLast {} {
  724.     AEBuild -r 'CSOm' CSOm eQue ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}}
  725. }
  726.  
  727. # CSOm\eAtc{'----':obj {form:indx, want:type(euMS), seld:1, from:'null'()}, eDcl:[fss («486172643A4465736B746F7020466F6C6465723A62756773»)]}
  728. proc mailAttachmentDoesntWork {name} {
  729.     AEBuild -r 'CSOm' CSOm eAtc ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}} eDcl [makeAlis $name]
  730. }
  731.  
  732. # core\setd{'----':obj {form:prop, want:type(prop), seld:type(euPY), from:obj {form:indx, want:type(euMS), seld:1, from:'null'()}}, data:1}
  733. proc mailSetNumberProperty {prop to} {
  734.     AEBuild -r 'CSOm' core setd ---- "obj \{form:prop, want:type(prop), seld:type($prop), from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data $to
  735. }    
  736.  
  737.  
  738. proc mailCountMsgs {mbox} {
  739.     return [countObjects 'CSOm' [mailboxByName "$mbox"]  euMS]
  740. }
  741.  
  742. proc mailCountMailboxes {} {
  743.      return [countObjects 'CSOm' [eudoraFolder] euMB]
  744. }
  745.     
  746.  
  747. proc updateMailboxLists {} {
  748.     set num [mailCountMailboxes]
  749.     for {set i 1} {$i <= $num} {incr i} {
  750.         set name [file tail [mailboxPathIndex $i]]
  751.         message $name
  752.         lappend boxes $name
  753.     }
  754.     
  755.     global eudoraBoxes modifiedVars
  756.     lappend modifiedVars eudoraBoxes
  757.     set eudoraBoxes $boxes
  758.     menu -n open -p mailBoxProc -m $eudoraBoxes
  759.     menu -n moveTo -p transferProc -m $eudoraBoxes
  760.     message "done."
  761. }
  762.  
  763.  
  764. #===============================================================================
  765.  
  766. eventHandler CSOm eNot "eudoraHandler"
  767.  
  768. # a sample 'msgs': obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:“In”}, form:indx, seld:18}, obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:“In”}, form:indx, seld:19}
  769. proc eudoraHandler {it} {
  770.     global blah mailalertOnIncoming
  771.     message ""
  772.     if {[regexp {eWHp:wArv.*\[(obj.*)\], &repq} $it dum1 msgs]} {
  773.         set ids [getMsgIDs $msgs]
  774.         if {$mailalertOnIncoming} {
  775.             mailBrowser In $ids
  776.         }
  777.     } else {
  778.         message "No mail"
  779.     }
  780. }
  781.  
  782.  
  783. proc mailBrowser {folder ids} {
  784.     global inboxMembers ALPHA
  785.     global tileLeft tileTop defWidth tileHeight errorHeight
  786.  
  787.     checkMailPath
  788.     switchTo $ALPHA
  789.  
  790.     global trashedMsgs$folder
  791.     set trashedMsgs$folder {}
  792.     
  793.     set inboxMembers {}
  794.     set text {}
  795.  
  796.     foreach id $ids {
  797.         regexp {From: (.*)} [mailGetField from $folder $id] dummy from
  798.         set from [mailAddr $from]
  799.         set subject {}
  800.         regexp {Subject: (.*)} [mailGetField subject $folder $id] dummy subject
  801.         set tag {}
  802.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  803.             if {![string length $tag]} {
  804.                 set tag { <2>}
  805.             } else {
  806.                 regexp {[0-9]+} $tag tag
  807.                 set tag " <[expr $tag + 1]>"
  808.             }
  809.         }
  810.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t∞In∞$id\r" "$from$tag" $subject]
  811.         lappend inboxMembers $from$tag
  812.     }
  813.     if {![string length $text]} {
  814.         alertnote "No messages!"
  815.         return
  816.     }
  817.     
  818.     if {[set ind [lsearch [winNames] "*Incoming MAILBOX*"]] >= 0} {
  819.         bringToFront [lindex [winNames] $ind]
  820.         setWinInfo read-only 0
  821.         endOfBuffer
  822.         insertText $text
  823.     } else {
  824.         killMailboxWindow
  825.         new -n "* Incoming MAILBOX *" -g $tileLeft $tileTop $defWidth $errorHeight -m Brws
  826.  
  827.         insertText "(<cr> to go to message)\r-----\r$text"
  828.     }
  829.     select [nextLineStart [nextLineStart 0]] [nextLineStart [nextLineStart [nextLineStart 0]]]
  830.     setWinInfo dirty 0
  831.     setWinInfo read-only 1
  832.     message ""
  833. }
  834.  
  835.  
  836. proc getMsgIDs {text} {
  837.     if {[regexp -indices {seld:([0-9]+)} $text dummy ind]} {
  838.         return [concat [string range $text [lindex $ind 0] [lindex $ind 1]] [getMsgIDs [string range $text [lindex $ind 1] end]]]
  839.     }
  840. }
  841.  
  842. proc startNotifying {} {
  843.     global HOME ALPHA quitHooks
  844.     
  845.     AEBuild 'CSOm' CSOm nIns ---- [makeAlis "$HOME:$ALPHA"]
  846. #     lappend quitHooks stopNotifying
  847. }
  848.  
  849. proc stopNotifying {} {
  850.     global HOME ALPHA
  851.     
  852.     AEBuild 'CSOm' CSOm nRem ---- [makeAlis "$HOME:$ALPHA"]
  853. }
  854.